home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / m2 / m2pica.readme < prev    next >
Text File  |  1995-02-12  |  12KB  |  301 lines
  1. Short:    Use the picasso gfxboard with Modula-2
  2. Author:   C.Wartmann@AMBO.in-berlin.de
  3. Uploader: C.Wartmann@AMBO.in-berlin.de
  4. Type:     dev/m2
  5.  
  6.  
  7. Use your Picasso II with Modula-2 ! Every function of vilintuisup.library
  8. avaible via Modula-2 + fast ML Line-routines. Lots of demo programms.
  9.  
  10. FREEWARE, but please send me your suggestions/enhancements etc. via E-Mail.
  11.  
  12.  
  13.  
  14. Dokumentatation zu den Modula-2 Schnittstellenmodulen für die
  15. Picasso Grafikkarte von VillageTronic.
  16.  
  17. *******************************************************************************
  18.  : Program.         VilIntuiSupL.def
  19.  : Author.          Carsten Wartmann (Crazy Video)
  20.  : Address.         Wutzkyallee 83, 12353 Berlin
  21.  : Phone.           030/6614776 ; e-mail : C.WARTMANN@ambo.in-berlin.de
  22.  : E-Mail           C.WARTMANN@ambo.in-berlin.de
  23.                     Carsten_Wartmann@tfh-berlin.de
  24.  : Version.         0.99b (0.99)
  25.  : Date.            16.11.1994 (24.8.94) (22.Feb.1994)
  26.  : Copyright.       Freeware
  27.  : Language.        Modula-2
  28.  : Compiler.        M2Amiga V4.3d
  29.  : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
  30.  : Contents.        Programmierer nutzbar.
  31. *******************************************************************************)
  32.  
  33.  
  34. Folgende Routinen stellt die VilIntuiSup.library zur Verfügung :
  35.  
  36. DEFINITION MODULE VilIntuiSupL{"vilintuisup.library",2} ;
  37.  
  38.  
  39. FROM SYSTEM     IMPORT ADDRESS,BYTE ;
  40. FROM ExecD      IMPORT ListPtr ;
  41. FROM IntuitionD IMPORT ScreenPtr,RememberPtr ;
  42. FROM UtilityD   IMPORT TagItemPtr,Tag ;
  43.  
  44. IMPORT vil:VilIntuiSupD,R ;
  45.  
  46.  
  47.  
  48. (* Old function, do not use in future !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
  49. PROCEDURE OpenVillageScreen(mode{R.A0} : vil.DimensionPtr) : ScreenPtr ; 
  50.           CODE -30 ;
  51.  
  52. PROCEDURE OpenVillageScreenTagList(tags{R.A0} : TagItemPtr) : ScreenPtr ; 
  53.           CODE -114 ;
  54.  
  55. PROCEDURE CloseVillageScreen(screen{R.A0} : ScreenPtr) ; 
  56.           CODE -36 ;
  57.      
  58. PROCEDURE LockVillageScreen(screen{R.A0}   : ScreenPtr) : ADDRESS ; 
  59.           CODE -42 ;
  60. PROCEDURE UnLockVillageScreen(screen{R.A0} : ScreenPtr) ; 
  61.           CODE -48 ;
  62.  
  63. PROCEDURE GetMemSize(screen{R.A0} : ScreenPtr) : LONGCARD ;
  64.           CODE -72 ;
  65.  
  66. PROCEDURE VillageScreenData(screen{R.A0} : ScreenPtr ;
  67.                             tag{R.D0}    : Tag) : LONGCARD ; 
  68.           CODE -120 ;
  69.  
  70. PROCEDURE IsVillageScreen(screen{R.A0} : ScreenPtr) : BOOLEAN ; 
  71.           CODE -66 ;
  72.  
  73. PROCEDURE VillageRectFill(screen{R.A0}  : ScreenPtr ;
  74.                           fillrec{R.A1} : vil.VilFillRecordPtr) : LONGINT ; 
  75.                           CODE -78 ;
  76.  
  77. PROCEDURE VillageBlitCopy(screen{R.A0} : ScreenPtr ;
  78.                           record{R.A1} : vil.VilCopyRecordPtr) ;
  79.           CODE -54 ;
  80.  
  81. PROCEDURE WaitVillageBlit ;
  82.           CODE -60 ;
  83.  
  84. PROCEDURE VillageModeRequest(tags{R.A0} : TagItemPtr) : LONGCARD ;
  85.           CODE -84 ;
  86. PROCEDURE VillageModeList(memorykey{R.A0} : RememberPtr ;
  87.                           tags{R.A1}      : TagItemPtr) : ListPtr ;
  88.           CODE -90 ;
  89. PROCEDURE VillageBestModeID(tags{R.A0} : TagItemPtr) : LONGCARD ;
  90.           CODE -108 ;
  91.  
  92. PROCEDURE VillageGetBufAddr(screen{R.A0} : ScreenPtr ;
  93.                             num{R.D0}    : LONGCARD) : ADDRESS ;
  94.           CODE -126 ;
  95. PROCEDURE VillageSetDisplayBuf(screen{R.A0} : ScreenPtr ;
  96.                                num{R.D0}    : LONGCARD) ;
  97.           CODE -132 ;
  98.  
  99.  
  100. PROCEDURE VillageSetSegment(segnum{R.D0} : LONGCARD) ;
  101.           CODE -96 ;
  102. PROCEDURE VillageGetSegment ;
  103.           CODE -102 ;
  104.  
  105.  
  106. END VilIntuiSupL.lib2
  107.  
  108.  
  109.  
  110.  
  111.  
  112. Ansonsten ist noch VilIntuiSupD.def aufschlussreich.
  113.  
  114. (*******************************************************************************
  115.  : Program.         VilIntuiSupD.def
  116.  : Author.          Carsten Wartmann (Crazy Video)
  117.  : Address.         Wutzkyallee 83, 12353 Berlin
  118.  : Phone.           030/6614776
  119.  : E-Mail           C.Wartmann@AMBO.in-berlin.de (bevorzugt)
  120.  : E-Mail           Carsten_Wartmann@tfh-berlin.de
  121.  : Version.         1.0
  122.  : Date.            16.Nov.1994
  123.  : Copyright.       Freeware
  124.  : Language.        Modula-2
  125.  : Compiler.        M2Amiga V4.3d
  126.  : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
  127.  : Contents.        Programmierer nutzbar.
  128.  : Contents.        Enthält Die Definitionen der Tags, Const. etc. für
  129.  : Contents.        die VilIntuiSup.library
  130. *******************************************************************************)
  131.  
  132. DEFINITION MODULE VilIntuiSupD ;
  133.  
  134.  
  135. FROM ExecD      IMPORT Node ;
  136.  
  137. FROM IntuitionD IMPORT ScreenPtr ;
  138.  
  139. FROM UtilityD   IMPORT tagUser ;
  140.  
  141. FROM SYSTEM     IMPORT ADDRESS,BYTE ;
  142.  
  143. IMPORT R;
  144.  
  145. [...]  Definitionen gelöscht !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  146.  
  147. (* Support *)
  148.  
  149. (* Setze PP für 68000er *)
  150. PROCEDURE SetPackedPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3} : CARDINAL ;
  151.                                                  color{R.D4} : CARDINAL) ;
  152.  
  153. (* Setze TrueColorPixel *)
  154.  
  155. PROCEDURE SetTrueColorPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  156.                                                     r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  157.  
  158. (* Setze 15(6)BitPixel *)
  159.  
  160. PROCEDURE Set15BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  161.                                                 r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  162.  
  163. PROCEDURE Set16BitPixel(scr{R.A0} : ScreenPtr ; x{R.D2},y{R.D3}         : CARDINAL ;
  164.                                                 r{R.D4},g{R.D5},b{R.D6} : CARDINAL) ;
  165.  
  166. (* Linienroutinen *)
  167.  
  168. (* In Assembler aber mit Sicherheitsabfrage *)
  169. PROCEDURE LinePacked(scr{R.A0} : ScreenPtr ; x1{R.D5},y1{R.D6},
  170.                                               x2{R.D2},y2{R.D3},color{R.D4} : LONGINT) ;
  171.                                              color{R.D4} : INTEGER) ;
  172.  
  173. PROCEDURE LineTrueColor(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  174.  
  175. PROCEDURE Line15Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  176.  
  177. PROCEDURE Line16Bit(scr : ScreenPtr ; x1,y1,x2,y2,r,g,b : INTEGER) ;
  178.  
  179. (* Hi-Color Support*)
  180.  
  181. PROCEDURE Get15FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;
  182. PROCEDURE Get16FromRGB(r{R.D4},g{R.D5},b{R.D6} : CARDINAL) : CARDINAL ;
  183.  
  184. PROCEDURE Kreis(scr : ScreenPtr ; x,y,r,col : INTEGER) ;
  185.  
  186. PROCEDURE ClearScreen(scr : ScreenPtr) ;
  187.  
  188. PROCEDURE ClearBuf(scr : ScreenPtr ; bufadr : ADDRESS) ;
  189.  
  190.  
  191. END VilIntuiSupD .
  192.  
  193.  
  194.  
  195.  
  196. Hier nun eine detailiertere Beschreibung :
  197.  
  198.  
  199. Tja, ist noch in Arbeit... Man schaue sich die Demos an.
  200. Ansonsten wäre da noch die Doku von VT zur Vilintui, die Unterschiede
  201. der Bezeichner erkennt man aus den defs etc.
  202.  
  203. Also *mir* reichen die Schnittstellen so wie sie jetzt sind. Wenn keine
  204. Reaktion kommt ist das auch die letzte Veröffentlichung. Ohne
  205. Anregungen/Kritik mache ich nicht weiter.
  206. Ich bitte jeden mir eine E-Mail zu schreiben, der diese Soft benutzt.
  207.  
  208. (*
  209. Zu sagen wäre noch, das anscheinend in der Software von VillageTronic noch
  210. einige "Käfer" sind, so funktioniert z.B. das Blitten vom System-Mem ins
  211. Graphic-Mem nicht (naja, wenn Enforcer läuft gehts manchmal...)
  212. *)
  213. Das funktioniert jetzt. Obwohl ich mehrmals VT auf diesen Fehler
  214. hingewiesen habe kam keine Reaktion. Nach dem letzten Update der
  215. Picasso-Soft ging es plötzlich !
  216.  
  217.  
  218. Die Punktsetzroutinen und die Chunky-Pixelroutine sind in Assembler
  219. implementiert und schneller als die C-Konstrukte von VT.
  220.  
  221.  
  222. MfG Carsten.
  223. ============
  224.  
  225.  
  226. ============================= Archive contents =============================
  227.  
  228. Original  Packed Ratio    Date     Time    Name
  229. -------- ------- ----- --------- --------  -------------
  230.     8780    5551 36.7% 16-Nov-94 14:49:32  M2Picasso/BlitTest1
  231.      378     156 58.7% 16-Nov-94 14:49:32  M2Picasso/BlitTest1.info
  232.    10188    6057 40.5% 16-Nov-94 14:32:40  M2Picasso/Space030
  233.      378     159 57.9% 16-Nov-94 14:45:18  M2Picasso/Space030.info
  234.     7281    2284 68.6% 17-Nov-94 00:31:20  M2Picasso/VilIntuiSup.DOK
  235.      355     264 25.6% 16-Nov-94 14:45:18  M2Picasso/VilIntuiSup.DOK.info
  236.     3288    2297 30.1% 16-Nov-94 14:28:44  M2Picasso/DBuf
  237.      378     160 57.6% 16-Nov-94 14:45:18  M2Picasso/DBuf.info
  238.     4588    3090 32.6% 16-Nov-94 14:07:06  M2Picasso/PicaTest15
  239.      378     161 57.4% 16-Nov-94 14:45:18  M2Picasso/PicaTest15.info
  240.     4564    3081 32.4% 16-Nov-94 14:07:22  M2Picasso/PicaTest16
  241.      378     158 58.2% 16-Nov-94 14:45:18  M2Picasso/PicaTest16.info
  242.     4276    2901 32.1% 16-Nov-94 14:06:48  M2Picasso/PicaTest8
  243.      378     161 57.4% 16-Nov-94 14:45:18  M2Picasso/PicaTest8.info
  244.     3944    2651 32.7% 16-Nov-94 14:10:10  M2Picasso/Styx
  245.      378     161 57.4% 16-Nov-94 14:45:18  M2Picasso/Styx.info
  246.      628     258 58.9% 16-Nov-94 14:45:18  M2Picasso/obj.info
  247.     5400    1716 68.2% 16-Nov-94 14:06:20  M2Picasso/obj/VilIntuiSupD.obj
  248.      809     214 73.5% 16-Nov-94 14:06:20  M2Picasso/obj/VilIntuiSupD.obj.info
  249.      416     232 44.2% 16-Nov-94 14:06:14  M2Picasso/obj/VilIntuiSupL.obj
  250.      809     214 73.5% 16-Nov-94 14:06:14  M2Picasso/obj/VilIntuiSupL.obj.info
  251.     4528    3029 33.1% 16-Nov-94 14:06:28  M2Picasso/PicaTest
  252.      378     157 58.4% 16-Nov-94 14:45:18  M2Picasso/PicaTest.info
  253.      628     260 58.5% 16-Nov-94 14:45:18  M2Picasso/sym.info
  254.      270     183 32.2% 16-Nov-94 14:14:12  M2Picasso/sym/Timer2.sym
  255.      798     249 68.7% 16-Nov-94 14:14:12  M2Picasso/sym/Timer2.sym.info
  256.    17110    8751 48.8% 16-Nov-94 14:06:10  M2Picasso/sym/VilIntuiSupD.sym
  257.      798     250 68.6% 16-Nov-94 14:06:10  M2Picasso/sym/VilIntuiSupD.sym.info
  258.    14957    7954 46.8% 16-Nov-94 14:06:14  M2Picasso/sym/VilIntuiSupL.sym
  259.      798     250 68.6% 16-Nov-94 14:06:14  M2Picasso/sym/VilIntuiSupL.sym.info
  260.      628     259 58.7% 16-Nov-94 14:45:18  M2Picasso/Txt.info
  261.     6989    2314 66.8% 17-Nov-94 00:11:08  M2Picasso/Txt/BlitTest1.mod
  262.     3298    1224 62.8% 17-Nov-94 00:11:20  M2Picasso/Txt/DBuf.mod
  263.     3727    1158 68.9% 17-Nov-94 00:11:34  M2Picasso/Txt/Picatest.mod
  264.     3766    1209 67.8% 17-Nov-94 00:11:50  M2Picasso/Txt/picatest15.mod
  265.    14710    3928 73.2% 17-Nov-94 00:17:10  M2Picasso/Txt/Space.mod
  266.     3678    1305 64.5% 17-Nov-94 00:17:38  M2Picasso/Txt/Styx.mod
  267.     7180    1909 73.4% 17-Nov-94 00:19:10  M2Picasso/Txt/vilintuisupD.def
  268.      628     258 58.9% 16-Nov-94 14:45:18  M2Picasso/Pics.info
  269.     3730    1206 67.6% 17-Nov-94 00:12:02  M2Picasso/Txt/picatest16.mod
  270.     3713    1164 68.6% 17-Nov-94 00:12:20  M2Picasso/Txt/Picatest8.mod
  271.    11322    3306 70.8% 17-Nov-94 00:16:56  M2Picasso/Txt/RBMP.mod
  272.     1016     458 54.9% 16-Aug-94 19:12:04  M2Picasso/Txt/Timer2.def
  273.     2435    1080 55.6% 16-Aug-94 19:12:04  M2Picasso/Txt/Timer2.mod
  274.    17537    3467 80.2% 17-Nov-94 00:16:44  M2Picasso/Txt/VilIntuiSupD.mod
  275.     2917     899 69.1% 17-Nov-94 00:15:56  M2Picasso/Txt/vilintuisupL.def
  276.    21558   13091 39.2% 17-Aug-94 15:30:08  M2Picasso/Pics/Galerie160.bmp
  277.     4918     815 83.4% 17-Aug-94 22:06:36  M2Picasso/Pics/Kugeln.bmp
  278.     4918     772 84.3% 19-Aug-94 15:11:24  M2Picasso/Pics/Kugeln1.bmp
  279.      896     426 52.4% 19-Aug-94 15:08:10  M2Picasso/Pics/PAL.pal
  280.    10906    2924 73.1% 18-Aug-94 01:37:46  M2Picasso/Pics/Ship1.bmp
  281.    10294    2875 72.0% 19-Aug-94 15:10:14  M2Picasso/Pics/Ship2.bmp
  282.   328758   19063 94.2% 19-Aug-94 15:09:48  M2Picasso/Pics/Space1.bmp
  283.     9526     919 90.3% 19-Aug-94 15:10:52  M2Picasso/Pics/Ufo.bmp
  284.     2358     724 69.2% 12-Nov-94 20:56:34  M2Picasso/Pics/12345.bmp
  285.     2102     577 72.5% 19-Aug-94 15:51:12  M2Picasso/Pics/Explosion.bmp
  286.     6706    2562 61.7% 12-Nov-94 22:45:30  M2Picasso/Pics/sequenz/auto.0001
  287.     6706    2538 62.1% 12-Nov-94 22:57:10  M2Picasso/Pics/sequenz/auto.0002
  288.     6706    2387 64.4% 12-Nov-94 22:57:24  M2Picasso/Pics/sequenz/auto.0003
  289.     6706    2285 65.9% 12-Nov-94 22:57:42  M2Picasso/Pics/sequenz/auto.0004
  290.     6706    2289 65.8% 12-Nov-94 22:58:04  M2Picasso/Pics/sequenz/auto.0005
  291.     6706    2367 64.7% 12-Nov-94 22:58:22  M2Picasso/Pics/sequenz/auto.0006
  292.     6706    2302 65.6% 12-Nov-94 22:59:02  M2Picasso/Pics/sequenz/auto.0007
  293.     6706    2316 65.4% 12-Nov-94 22:59:16  M2Picasso/Pics/sequenz/auto.0008
  294.     6706    2301 65.6% 12-Nov-94 22:59:30  M2Picasso/Pics/sequenz/auto.0009
  295.     6706    2389 64.3% 12-Nov-94 22:59:46  M2Picasso/Pics/sequenz/auto.0010
  296.      628     269 57.1% 16-Nov-94 14:45:18  M2Picasso.info
  297.      628     251 60.0% 16-Nov-94 14:51:46  M2Picasso/Pics/sequenz.info
  298.    10160    6170 39.2% 23-Dec-91 16:12:12  M2Picasso/PPMore
  299. -------- ------- ----- --------- --------
  300.   660221  150765 77.1% 02-Feb-95 18:49:56   69 files
  301.